########################################
###### Run alll replication Code  ######
######## January 9th, 2025 #############
########################################

library(dplyr)

df <- readRDS("data/workfile.rds")

# Figure 1 + Table A5
source("code/Fig1_TabA5.R")

# Figure 2 + Table A6
source("code/Fig2_TabA6.R")

# Figure 3
source("code/Fig3.R")

# Figure 4 + Table A7
source("code/Fig4_TabA7.R")

# Figure A1
source('code/FigA1_balance_checks.R')

# Figure A2
source("code/FigA2_balancing_full_set.R")

# Figure A3
source("code/FigA3_matching_predictors.R")

# Figure A4
source("code/FigA4_balancing_by_lr_full.R")

# Figure A5
source("code/FigA5_l1out_agg_treatment.R")

# Figure A6 
source("code/FigA6_l1out_balancing.R")

# Figure A7
source("code/FigA7_agg_treatment_countries.R")

# Figure A8 + Figure A9
source("code/FigA8_A9_distribution_trust.R")

# Figure A10
source("code/FigA10_agg_treatment_partisans.R")

# Figure A11
source("code/FigA11_balancing_inparty.R")

# Table A1
source("code/TabA1_balance_table.R")

# Table A3
source("code/TabA3_prediction_immigration_responses.R")

# Table A4
source("code/TabA4_missingDV.R")